www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminTemplates\D_edit_a_template_before-old.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<DIV id="loading_msg" style="position:absolute; z-index:200; top:210px; left:184px; background-color:#ffffff; width: 306px; height: 22px;" >

请稍后......</div>




<!--#include file=../../inc/Functionb.asp-->



<script type="text/javascript" src="../../inc/zxml.js"></script>


<!--#include file=../../inc/ajaxLIB_no_loader.asp-->




<%



Server.ScriptTimeout=9999999


session.timeout=600


if session("ok_hhhv")="" or cstr(session("ok_hhhv"))<>cstr(request("pid")) then


session("ok_hhhv")=request("pid")



' 检测组件变量
dim isobj,VerObj,TestObj



'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
  on error resume next
  IsObj=false
  VerObj=""
  set TestObj=server.CreateObject (strObj)
  If -2147221005 <> Err then		'感谢网友iAmFisher的宝贵建议
    IsObj = True
    VerObj = TestObj.version
    if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  end if
  set TestObj=nothing
End sub



  ObjTest(fssoo_nd_var_str_x_customx)



if not isobj then



sss1="检测中:对不起，由于你的系统不支持FSO组件,所以无法使用本后台"

%>





<script language="javascript">

setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300);

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");


</script>






<%
response.end



else

sss1="检测中:支持FSO......"
%>




<script language="javascript">


setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",0);


var okeeee=0;
var needdo=1;
var w ;
var w2 ;




var ended=0;
var ended2=0;
var pos="";
var msg1="";



templates_list_get();







function templates_list_get(){


setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载要复制的图片等列表中....</font>';",800);
var a=AJAXcreateXMLdocument();



a.onreadystatechange=function(){
if (a.readyState==4)
{



if (a.parseError.errorCode!=0){

alert("数据读取错误,请重试!!");

}

var root=a.documentElement;
var staut=root.firstChild.text;




setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载要复制的图片等列表成功...,复制 中..."+"</font>';",1500);


setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>开始复制  ....</font>';",800);

//循环延时，防止卡住:
w2 = setInterval("do_copy()",40);


}
}
a.async=true; //异步模式
a.load("D_ajax_get_all_pages_list_pic.asp?ppath=<%=request("pname")%>");

}

















needdo=1;
var pos22="";
ended2=0;
var stu="ok";








var a22=AJAXcreateXMLdocument();



a22.onreadystatechange=function(){
if (a22.readyState==4)
{



if (a22.parseError.errorCode!=0){

alert("数据读取错误,请重试!!");

}

var root2=a22.documentElement;
var s2s1=root2.firstChild.text;
var s2s2=root2.childNodes[1].text;
var s2s3=root2.childNodes[2].text;
var s2s4=root2.childNodes[3].text;




if (s2s1==1){ended2=1;}
pos22=s2s2;
msg1=s2s3;

needdo=1;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在复制图片  "+msg1+",id="+pos22+"......"+"</font>';",1500);

if (ended2==0){



}

else


{
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"复制图片完成......"+"</font>';",1500);



setTimeout("self.location='../../editTemp/D_edit_a_template.asp?edittype=<%=request("edittype")%>&fname=<%=request("fname")%>&pname=<%=request("pname")%>&pid=<%=request("pid")%>';",10);


}

if (s2s4!="ok"){

stu="shibai";
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"复制出错，请重试...(出错原因:"+s2s4+")</font>';",1500);

alert("复制出错，请重试...(出错原因:"+s2s4+")");

}





}
}

























function do_copy(){





if (needdo==1&&ended2==0&&stu=="ok"){
needdo=0;
a22.async=true; //异步模式

a22.load("D_ajax_copy_pic.asp?pos="+pos22);

}


}






</script>



<%
end if


else

%>

<script language=javascript>





setTimeout("self.location='../../editTemp/D_edit_a_template.asp?edittype=<%=request("edittype")%>&fname=<%=request("fname")%>&pname=<%=request("pname")%>&pid=<%=request("pid")%>';",10);

</script>


<%



end if
%>